home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 23
/
AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso
/
scripts
/
AudioInfotmp
next >
Wrap
Text File
|
1999-11-14
|
2KB
|
65 lines
; **** AudioInfo zum Hauptinhaltsverzeichnis der Amiga-Future-CD-ROM ****
; **** Skript und Icons © Cord Hagen ****
ASSIGN AFCX: ""
ASSIGN SFX: AFCX:SFX ADD
ASSIGN C: AFCX:C ADD
ASSIGN LIBS: AFCX:LIBS ADD
IF EXISTS ENV:ICSFX
STATUS COM=PLAY16 >ENV:ICSFX
BREAK $ICSFX
SKIP ENDE
ENDIF
SETENV ICSFX=0
SETENV ICSFX=0
RUN >NIL: VT AFCD:GFX/AFCDSTART.ANIM DE=20
RUN >NIL: PLAY16 SFX:HIVOLT.WAV L=4
WAIT 1
PLAY16 SFX:AFI01.WAV BUF=99999 >NIL:
RUN >NIL: WBSCROLL 100 2 TIP: - Amiga Future © AudioInfo - Übrigens .... das AudioInfo der Amiga Future © CD-ROM lässt sich durch erneuten Doppelklick auf das AudioInfo-Piktogramm jederzeit wieder anhalten ! Drücke jetzt die linke Maustaste, um diesen Informationstext zu beenden ! .....
LAB ENDE
DELETE ENV:ICSFX >NIL:
ASSIGN LIBS: AFCX:LIBS REMOVE
ASSIGN C: AFCX:C REMOVE
ASSIGN SFX: AFCX:SFX REMOVE
ASSIGN AFCX: "" REMOVE
; Only AMIGA make it possible ;-)
IF EXISTS ENV:ASSAFCD
SKIP GO
ENDIF
ASSIGN AFCD: ""
ASSIGN SFX: AFCD:SFX ADD
ASSIGN C: AFCD:C ADD
ASSIGN LIBS: AFCD:LIBS ADD
LAB GO
IF EXISTS ENV:ICSFX
STATUS COM=PLAY16 >ENV:ICSFX
BREAK $ICSFX
SKIP ENDE
ENDIF
SETENV ICSFX=0
RUN >NIL: VT AFCD:GFX/AFCDSTART.ANIM DE=20
RUN >NIL: PLAY16 SFX:HIVOLT.WAV L=4
WAIT 1
PLAY16 SFX:AFI01.WAV BUF=99999 >NIL:
RUN >NIL: WBSCROLL 100 2 TIP: - Amiga Future © AudioInfo - Übrigens .... das AudioInfo der Amiga Future © CD-ROM lässt sich durch erneuten Doppelklick auf das AudioInfo-Piktogramm jederzeit wieder anhalten ! Drücke jetzt die linke Maustaste, um diesen Informationstext zu beenden ! .....
LAB ENDE
DELETE ENV:ICSFX >NIL:
IF EXISTS ENV:ASSAFCD
SKIP EXIT
ENDIF
ASSIGN LIBS: AFCD:LIBS REMOVE
ASSIGN C: AFCD:C REMOVE
ASSIGN SFX: AFCD:SFX REMOVE
ASSIGN AFCD: "" REMOVE
LAB EXIT
; Only AMIGA make it possible ;-)